home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 January / Ahoy_Magazine_87-01_1987_Double_L.d64 / Variable Log (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  386b  |  14 lines
  1. 0 rem << cd37-1 >>
  2. 1 rem commodares problem #33-1:
  3. 2 print"[147]   variable log"
  4. 3 rem solution by
  5. 4 rem    joe wright
  6. 5 rem
  7. 9 rem === 1st solution ===
  8. 10 a$="abcdefghijklmnopqrstuvwxyz 0123456789" : for x=1 to 26 : for y=1 to 37
  9. 20 print mid$(a$,x,1);mid$(a$,y,1);"  "; : next : next
  10. 30 rem === 2nd solution ===
  11. 40 for x=65 to 90 : for y=48 to 90 : if y=58 then y=65
  12. 50 print chr$(x);chr$(y);"  ";
  13. 60 next : print chr$(x);"   "; : next
  14.